Split: Phải khai báo trước khi dùng (Private <name> As New Split).

-      Mỗi lần khai báo ta chỉ có thể add 1 object cần split.

-      Cách sử dụng

o    Call <name>.Attach(Object,HandleCursor Up/Down, HandleCursor Left/Right) [Nếu Handle bỏ trống th́ sẽ lấy hCursor của Windows]

-      Các Properties

o    FullDrag (Boolean) : = True,các object sẽ chuyễn động theo khi drag.Ngược lại là sau khi drag th́ các object mới thay đỗi.

o    MaxSize : Kích thước lớn nhất mà object có thể resize

o    MinSize : Kích thước tối thiểu mà Object có thể resize

o    SplitSize : Kích thước của thanh drag.

-      Code ví dụ :

-      Text Box: ‘Add vào MDI form 1 Picturebox có tên là lBar Private sLeftBar As New Split Private Sub MDIForm_Load() Call sLeftBar.Attach(lBar) ‘Các handle lấy của Windows nên không truyền tham số. sLeftBar.FullDrag = False ‘Bây giờ th́ bấm F5 và thử drag lBar xem. End Sub